home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / bach happy.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  60 lines
  1. 100 print"[147]  ************************
  2. 105 [153]"  *                      *
  3. 110 print"  *   basic loader for   *
  4. 115 [153]"  * happy sounding  bach *
  5. 120 print"  *                      *
  6. 125 [153]"  ************************
  7. 130 ifx<>0then167
  8. 145 :
  9. 150 for x= 49152 to 49362
  10. 155 read a: b= b+a
  11. 160 poke x, a: next x
  12. 165 if b<>20685 then print "data error"
  13. 167 sys49152  : rem  __ play the music
  14. 168 goto60000 : rem  play again?
  15. 170 rem   end
  16. 175 :
  17. 180 data 169,15,141,24,212,169
  18. 185 data 9,141,5,212,169,17
  19. 190 data 141,6,212,169,17,141
  20. 195 data 4,212,162,0,189,115
  21. 200 data 192,141,1,212,232,189
  22. 205 data 115,192,141,0,212,232
  23. 210 data 189,115,192,141,114,192
  24. 215 data 232,142,113,192,32,64
  25. 220 data 192,169,17,141,4,212
  26. 225 data 174,113,192,224,96,208
  27. 230 data 217,76,92,192,160,0
  28. 235 data 162,0,232,224,255,208
  29. 240 data 251,200,192,75,208,244
  30. 245 data 206,114,192,173,114,192
  31. 250 data 208,234,169,16,141,4
  32. 255 data 212,96,169,0,141,4
  33. 260 data 212,141,5,212,141,6
  34. 265 data 212,141,0,212,141,1
  35. 270 data 212,141,24,212,96,0
  36. 275 data 0,51,97,2,34,75
  37. 280 data 1,38,126,1,43,52
  38. 285 data 1,45,198,1,51,97
  39. 290 data 2,34,75,2,34,75
  40. 295 data 2,57,172,2,45,198
  41. 300 data 1,51,97,1,57,172
  42. 305 data 1,64,188,1,68,149
  43. 310 data 2,34,75,2,34,75
  44. 315 data 2,45,198,2,51,97
  45. 320 data 1,45,198,1,43,52
  46. 325 data 1,38,126,1,43,52
  47. 330 data 2,45,198,1,43,52
  48. 335 data 1,38,126,1,34,75
  49. 340 data 1,38,126,2,43,52
  50. 345 data 1,38,126,1,34,75
  51. 350 data 1,31,255,1,34,75,4
  52. 60000 print"[147][215]ould you like to hear it again?"
  53. 60020 poke198,0:wait198,1:getr$
  54. 60030 ifr$<>"y"andr$<>"n"then60000
  55. 60040 ifr$="y"then100
  56. 60050 :
  57. 63000 rem   connect back to bach boot
  58. 63010 print"[147]load"chr$(34)"bach boot"chr$(34)",8":print"run"
  59. 63020 poke631,13:poke632,13:poke198,2:        end
  60.